home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 9 / The PC-SIG Library on CD ROM - Ninth Edition.iso / 201_300 / DISK0208 / DISK0208.ZIP / SMURF.BAS < prev    next >
BASIC Source File  |  1983-12-27  |  9KB  |  56 lines
  1. 1000 REM    SMURF BY JAMES CARD
  2. 1010 REM    TYPED IN FROM AN A. B. DICK MIMEOGRAPH.
  3. 1020 REM    DECEMBER 10, 1982.
  4. 1022 REM    CONVERTED TO IBM-PC BY PHIL GILL 07/83
  5. 1025 WIDTH "LPT1:",100
  6. 1030 LPRINT CHR$(15):LPRINT CHR$(27) "3" CHR$(18):FOR I=1 TO 95:READ A$:LPRINT TAB(10);A$:NEXT:LPRINT CHR$(27) "@":STOP
  7. 1040 :
  8. 1050 :
  9. 1060 :
  10. 1070 :
  11. 1080 DATA"                             ******************************":DATA"                         **************************************":DATA"                      *********                **************   ***"
  12. 1090 DATA"                   *************               **************     ***":DATA"                *****************              *************        **":DATA"              ***  ***************             ************          ***"
  13. 1100 DATA"            **       **************            ***********             **":DATA"          **          *************           ***********               ***"
  14. 1110 DATA"         **            ************           **********                ****":DATA"       **               ************         **********              ********"
  15. 1120 DATA"      ***                ***********         *********            ************":DATA"      ***                 *********         ********           ****************"
  16. 1130 DATA"      ***                  ********        *******          *******************":DATA"       **                  *******        ******        ************************"
  17. 1140 DATA"        ***                ******         *****      *****************************":DATA"         ******           ******  ************************************************"
  18. 1150 DATA"           *************************************                        ***********":DATA"                              **          **********                            ***"
  19. 1160 DATA"                             **      ******                                      ***":DATA"                            ***************************                          ***"
  20. 1170 DATA"                        ******               *******************                  **":DATA"                     ****                          *******************            ***"
  21. 1180 DATA"                 ****             MMMM                 *******************        ***":DATA"               ***               MMMMMM*****               *****************      ***"
  22. 1190 DATA"              **          MM***MM...........MMM                *****************  ****":DATA"             **         MMMM..M...............MM**                ********************"
  23. 1200 DATA"             *          MM....................MM..**                ******************":DATA"             *       MMM....MMMMMM.MMM........MM....***               ****************"
  24. 1210 DATA"             **     MM....MMM    MM   MM......MM......***               ***************":DATA"       *******M   MM.....MM     M      M......MM........**                *************"
  25. 1220 DATA"     ***......MMMM......MM     M        M.....M..........***               ************":DATA"   ***..........M......M      M         M.....M............***              ***********"
  26. 1230 DATA"  ***.............M..MM     M           M....................*******.............*****":DATA"  ***...............MMM                 MM..........................................***"
  27. 1240 DATA"  **................MM MMM             M.............................................**":DATA"  **.................MMMMM  MMM       MM............................................***"
  28. 1250 DATA"   **.....Ä.£...........MM MMMMM     MM.............................................***":DATA"    **....................MMMMM     MM....................................MMMMMM....***"
  29. 1260 DATA"     ***...................MMMMMMMMM.............................MMMMMMMMMMMMMMMMM..***":DATA"       *MMM...................................................MMM...MMMMMMM.....MM..***"
  30. 1270 DATA"          MMMMMMMMMM.........................................M.......MMMMMM........***":DATA"             *.......................................................MMMM.........***"
  31. 1280 DATA"              **....................................................MM...........***":DATA"                ***............................................MMMMMM..........***"
  32. 1290 DATA"                  ****................MMMMM..............M...................***":DATA"                     ****...........MM....MMMMMMM.......MMMM..............****"
  33. 1300 DATA"                        *******.........................MMMMMMMM.....******":DATA"                             ******************MMMMMMMMMM....MMMMMMMM*":DATA"                                            **....................**"
  34. 1310 DATA"                                           **.....................**":DATA"                                          **...........MM...........**":DATA"                                         **............MM............*"
  35. 1320 DATA"                                        **.............MM............**":DATA"                                        *..............MM........MM..**":DATA"                                       **..............M.........MM...**"
  36. 1330 DATA"                                      **...............M.........MM....**":DATA"                                     **...............MM.........MM.....**"
  37. 1340 DATA"                                     **...............MM.........MM......**":DATA"                                    **................MM.........MM.......**"
  38. 1350 DATA"                                   **.................M..........M........**":DATA"                                   **................MM..........M.........**"
  39. 1360 DATA"                                   *.................MM.........MM......MMM******":DATA"                                  **.................M..........MM..MMMM   **   **"
  40. 1370 DATA"                                  **.................M..........MMMMM      **   **":DATA"                                  **.................M..........M           **  **"
  41. 1380 DATA"                                  **M...............MM..........M           *****":DATA"                                  *MMMMMMMMMMMMMMMMMMM..........M           ***"
  42. 1390 DATA"                                  **     MMMMMM     M...........M           *":DATA"                                  **               MM..........MM          **"
  43. 1400 DATA"                                   **              MM..........MMM         *":DATA"                                    **             M.............MM      **"
  44. 1410 DATA"                                     **            M..............MM MMMMMMMMM":DATA"                                      **           M...............MMM.......MM"
  45. 1420 DATA"                                       **MM        MM........................MMM":DATA"                                      **  MMMMM     M........................MMM"
  46. 1430 DATA"                                     **       MMMMMMMM......................MMM":DATA"                                    **            * MM.............MMMMMMMMMM"
  47. 1440 DATA"                           ***********           * M.MM..............MMMMM":DATA"                   *********         ***         *MM..M......M...........MMM"
  48. 1450 DATA"              ***********             ****     **MM..MM.....MMMM..........MM*****":DATA"             ***   *********      ****    ******** MMMMMM....MM MMM........MM     ***"
  49. 1460 DATA"           ***        *********************     ***     M......M  MMM......MM*       **":DATA"          **            ******       *********    ****  M.......M   MMMMMMMM****     **"
  50. 1470 DATA"         ***             ***          **********    ****MM......MM    ************    **":DATA"         ***            ***             *********     **MM.......M        *********   **"
  51. 1480 DATA"         ***            **               *********      MMM......M*         ******** ***":DATA"          ***          ***                **********      MM....MM....      ************"
  52. 1490 DATA"           ***         ***                 **********      MMMMMM******     ***********":DATA"            ****       ***                  *********       ************     *********"
  53. 1500 DATA"             *****    ****                 *********        ***********     *******":DATA"                ***********                *********        ************   *******"
  54. 1510 DATA"                         ***               *********        ******************":DATA"                           ******          ********         **************"
  55. 1520 DATA"                               *******************       ************":DATA"                                     **********************"
  56.